-- background: 2687 from stack: in
-- bmap block id: 3078
-- flags: 0000
-- background id: 0
-- name: Main Bkgnd
----- HyperTalk script -----
on newCard
  tabKey
end newCard

on enterKey
  go next
end enterKey

on opencard
  repeat with i = 8 to 9
    show bg btn i
  end repeat
  put "on mouseUp"&return into var
  put fld "script" &return after var
  put "end mouseUp"&return after var
  set script of bkgnd button "Try it" to var
end openCard


-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=469 top=25 right=46 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  play "hastalavista"
  --repeat while the sound is not "done"
  --wait 1 sec
  go to card id 5341 of stack "HOME"
  --end repeat
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=242 top=310 right=332 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-Next
----- HyperTalk script -----
on mouseDown
  visual scroll left
  go to next card of this bkgnd
  put the ticks into tickHolder
  repeat until (the mouse is up)
    if (the ticks - tickHolder) > 30
    then
    go to next card of this bkgnd
    put the ticks into tickHolder
  end if
end repeat
end mouseDown



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=200 top=310 right=332 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-Prev
----- HyperTalk script -----
on mouseDown
  visual scroll right
  go to prev card of this bkgnd
  put the ticks into tickHolder
  repeat until (the mouse is up)
    if (the ticks - tickHolder) > 30
    then
    go to prev card of this bkgnd
    put the ticks into tickHolder
  end if
end repeat
end mouseDown



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=275 right=312 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual iris close to grey
  visual iris open
  pop card
end mouseUp



-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=64 top=32 right=51 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1280
-- line height: 16
-- part name: Title
----- HyperTalk script -----
on enterInField
  Set name of this card to field "title"
end enterInField


-- part 20 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=394 top=311 right=333 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go LImacSTACK
----- HyperTalk script -----
on mouseUp
  push cd
  convert the date to dateitems
  put item 2 of it into stackMonth
  go stack "LImacSTACK."& stackMonth & "/89"
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=24 top=311 right=333 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go Help Stack
----- HyperTalk script -----
on mouseUp
  answer "Click EXIT in the Help stack to get back here."
  push cd
  put fld 1 into whatFind
  go card id 59861 of stack "Help"
  find whatFind --in fld 1
  --if the result is not empty then go card "HyperTalk" of stack "Help"
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=25 right=46 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  push cd
  visual wipe down to black
  visual wipe up
  go card "Help"
end mouseUp



-- part 24 (field)
-- low flags: 00
-- high flags: 6004
-- rect: left=100 top=134 right=286 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: script
----- HyperTalk script -----
on closeField
  put "on mouseUp"&return into var
  put fld "script" &return after var
  put "end mouseUp"&return after var
  set script of bkgnd button "Try it" to var
end closeField


-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=33 top=134 right=183 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try it
----- HyperTalk script -----
on mouseUp
  repeat 3 -- repeat [for] <number of times>
    beep
  end repeat
end mouseUp



-- part 26 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=369 top=58 right=279 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: holder


-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=400 top=134 right=186 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Reset field to Original
----- HyperTalk script -----
on mouseUp
  put fld "holder" into fld "script"
  put "on mouseUp"&return into var
  put fld "script" &return after var
  put "end mouseUp"&return after var
  set script of bkgnd button "Try it" to var
end mouseUp



-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=64 top=61 right=129 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: